﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities
Partial Class NuevaRendicion
    Inherits System.Web.UI.Page
    Dim str_error As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim usu As Integer
        usu = Session("USUARIO")
        Dim bean As New BE.UsuarioDTO
        bean.CodigoUsuario = usu

        CargarRequisiciones(bean)


    End Sub


    Sub CargarRequisiciones(ByVal bean As BE.UsuarioDTO)

        Dim capanegocios As New RendicionesBL
        Try
            gvdRequisiciones.DataSource = capanegocios.ListarRequisiciones(bean)
            gvdRequisiciones.DataBind()

        Catch ex As Exception
            str_error = capanegocios.CapturaError

            Response.Redirect("Errores.aspx?par=" & str_error)
        Finally

            capanegocios = Nothing

        End Try
    End Sub
End Class
